From 69355db4991367ccd36eed1ce8882d186f1bd6e8 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 19 May 2002 16:02:26 +0000 Subject: [PATCH] Fix previous change. --- lisp/arc-mode.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el index 1792c545029..7265cb09045 100644 --- a/lisp/arc-mode.el +++ b/lisp/arc-mode.el @@ -235,7 +235,7 @@ expected to extract to a file junking the directory part of the name." (defcustom archive-zip-expunge (if (locate-file "zip" nil 'file-executable-p) '("zip" "-d" "-q") - (if (locate-file "zip" nil 'file-executable-p) + (if (locate-file "pkzip" nil 'file-executable-p) '("pkzip" "-d") '("zip" "-d" "-q"))) "*Program and its options to run in order to delete zip file members. @@ -249,7 +249,7 @@ Archive and member names will be added." (defcustom archive-zip-update (if (locate-file "zip" nil 'file-executable-p) '("zip" "-q") - (if (locate-file "zip" nil 'file-executable-p) + (if (locate-file "pkzip" nil 'file-executable-p) '("pkzip" "-u" "-P") '("zip" "-q"))) "*Program and its options to run in order to update a zip file member. @@ -264,7 +264,7 @@ file. Archive and member name will be added." (defcustom archive-zip-update-case (if (locate-file "zip" nil 'file-executable-p) '("zip" "-q" "-k") - (if (locate-file "zip" nil 'file-executable-p) + (if (locate-file "pkzip" nil 'file-executable-p) '("pkzip" "-u" "-P") '("zip" "-q" "-k"))) "*Program and its options to run in order to update a case fiddled zip member. -- 2.30.2